/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / oobr / br-tree.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 35 34 3a 31 | 39 20 31 39 39 35 0a 3b | 14:54:1|9 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 65 78 |;; from |file /ex|
|00000060| 70 6f 72 74 2f 77 69 6c | 6c 6f 77 33 2f 78 65 6d |port/wil|low3/xem|
|00000070| 61 63 73 2d 31 39 2e 31 | 33 2d 72 65 6c 65 61 73 |acs-19.1|3-releas|
|00000080| 65 2f 65 64 69 74 6f 72 | 2f 6c 69 73 70 2f 6f 6f |e/editor|/lisp/oo|
|00000090| 62 72 2f 62 72 2d 74 72 | 65 65 2e 65 6c 0a 3b 3b |br/br-tr|ee.el.;;|
|000000a0| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|000000b0| 31 39 2e 31 33 20 58 45 | 6d 61 63 73 20 4c 75 63 |19.13 XE|macs Luc|
|000000c0| 69 64 2e 0a 3b 3b 3b 20 | 62 79 74 65 63 6f 6d 70 |id..;;; |bytecomp|
|000000d0| 20 76 65 72 73 69 6f 6e | 20 32 2e 32 35 3b 20 31 | version| 2.25; 1|
|000000e0| 2d 53 65 70 2d 39 34 2e | 0a 3b 3b 3b 20 6f 70 74 |-Sep-94.|.;;; opt|
|000000f0| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|00000100| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|00000110| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|00000120| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000130| 6e 20 45 6d 61 63 73 20 | 31 38 2e 0a 0a 28 69 66 |n Emacs |18...(if|
|00000140| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000150| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000160| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000170| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|00000180| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|00000190| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |)..     |(string-|
|000001a0| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|000001b0| 69 6f 6e 20 22 31 39 22 | 29 29 29 0a 20 20 20 20 |ion "19"|))).    |
|000001c0| 28 65 72 72 6f 72 20 22 | 54 68 69 73 20 66 69 6c |(error "|This fil|
|000001d0| 65 20 77 61 73 20 63 6f | 6d 70 69 6c 65 64 20 66 |e was co|mpiled f|
|000001e0| 6f 72 20 45 6d 61 63 73 | 20 31 39 2e 22 29 29 0a |or Emacs| 19.")).|
|000001f0| 0a 28 72 65 71 75 69 72 | 65 20 27 62 72 2d 6c 69 |.(requir|e 'br-li|
|00000200| 62 29 0a 28 64 65 66 76 | 61 72 20 2a 62 72 2d 74 |b).(defv|ar *br-t|
|00000210| 72 65 65 2d 70 72 6f 67 | 2d 6e 61 6d 65 2a 20 28 |ree-prog|-name* (|
|00000220| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 c1 3d ac 83 |byte-cod|e "..=..|
|00000230| 08 ac 82 c2 87 c3 87 22 | 20 5b 77 69 6e 64 6f 77 |......."| [window|
|00000240| 2d 73 79 73 74 65 6d 20 | 78 20 22 78 6f 6f 62 72 |-system |x "xoobr|
|00000250| 22 20 22 2e 2f 54 72 65 | 65 56 69 65 77 2e 61 70 |" "./Tre|eView.ap|
|00000260| 70 2f 54 72 65 65 56 69 | 65 77 22 5d 20 32 29 20 |p/TreeVi|ew"] 2) |
|00000270| 22 5c 0a 50 72 6f 67 72 | 61 6d 20 74 6f 20 72 75 |"\.Progr|am to ru|
|00000280| 6e 20 66 6f 72 20 68 69 | 65 72 61 72 63 68 69 63 |n for hi|erarchic|
|00000290| 61 6c 20 64 69 73 70 6c | 61 79 20 6f 66 20 63 6c |al displ|ay of cl|
|000002a0| 61 73 73 65 73 2e 22 29 | 0a 28 66 73 65 74 20 27 |asses.")|.(fset '|
|000002b0| 62 72 2d 74 72 65 65 20 | 23 5b 28 26 6f 70 74 69 |br-tree |#[(&opti|
|000002c0| 6f 6e 61 6c 20 61 72 67 | 29 20 22 08 ab 84 c1 20 |onal arg|) ".... |
|000002d0| aa 83 c2 20 43 1b c4 c5 | c6 c7 0b 5c 22 5c 22 89 |... C...|...\"\".|
|000002e0| 1e 08 ac 84 0e 09 ab 85 | ca 0b 21 aa 86 cb 20 88 |........|..!... .|
|000002f0| cc cd 21 2a 87 22 20 5b | 61 72 67 20 62 72 2d 74 |..!*." [|arg br-t|
|00000300| 68 69 73 2d 6c 65 76 65 | 6c 2d 63 6c 61 73 73 65 |his-leve|l-classe|
|00000310| 73 20 62 72 2d 66 69 6e | 64 2d 63 6c 61 73 73 2d |s br-fin|d-class-|
|00000320| 6e 61 6d 65 20 63 6c 61 | 73 73 65 73 20 64 65 6c |name cla|sses del|
|00000330| 71 20 6e 69 6c 20 6d 61 | 70 63 61 72 20 23 5b 28 |q nil ma|pcar #[(|
|00000340| 63 29 20 22 c0 09 21 87 | 22 20 5b 62 72 2d 67 65 |c) "..!.|" [br-ge|
|00000350| 74 2d 63 68 69 6c 64 72 | 65 6e 20 63 5d 20 32 5d |t-childr|en c] 2]|
|00000360| 20 63 68 20 62 72 2d 73 | 68 6f 77 2d 66 65 61 74 | ch br-s|how-feat|
|00000370| 75 72 65 73 20 62 72 2d | 74 72 65 65 2d 6c 6f 61 |ures br-|tree-loa|
|00000380| 64 20 62 65 65 70 20 6d | 65 73 73 61 67 65 20 22 |d beep m|essage "|
|00000390| 4e 6f 20 64 65 73 63 65 | 6e 64 61 6e 74 73 20 74 |No desce|ndants t|
|000003a0| 6f 20 64 69 73 70 6c 61 | 79 2e 22 5d 20 36 20 22 |o displa|y."] 6 "|
|000003b0| 5c 0a 53 74 61 72 74 20 | 74 68 65 20 61 70 70 72 |\.Start |the appr|
|000003c0| 6f 70 72 69 61 74 65 20 | 74 72 65 65 20 61 70 70 |opriate |tree app|
|000003d0| 6c 69 63 61 74 69 6f 6e | 20 77 69 74 68 20 64 65 |lication| with de|
|000003e0| 73 63 65 6e 64 65 6e 63 | 79 20 74 72 65 65 20 6f |scendenc|y tree o|
|000003f0| 66 20 63 75 72 72 65 6e | 74 20 63 6c 61 73 73 2e |f curren|t class.|
|00000400| 0a 57 69 74 68 20 6f 70 | 74 69 6f 6e 61 6c 20 70 |.With op|tional p|
|00000410| 72 65 66 69 78 20 41 52 | 47 2c 20 61 20 64 65 73 |refix AR|G, a des|
|00000420| 63 65 6e 64 65 6e 63 79 | 20 74 72 65 65 20 66 6f |cendency| tree fo|
|00000430| 72 20 65 61 63 68 20 63 | 6c 61 73 73 20 69 6e 20 |r each c|lass in |
|00000440| 63 75 72 72 65 6e 74 20 | 62 75 66 66 65 72 2e 22 |current |buffer."|
|00000450| 20 22 50 22 5d 29 0a 28 | 66 73 65 74 20 27 62 72 | "P"]).(|fset 'br|
|00000460| 2d 74 72 65 65 2d 67 72 | 61 70 68 20 23 5b 6e 69 |-tree-gr|aph #[ni|
|00000470| 6c 20 22 c0 19 c0 1a c0 | 1b c4 1d c6 1e 07 c8 c9 |l ".....|........|
|00000480| 0e 5c 6e 5c 22 1e 0b 8a | 64 62 88 cc 79 c6 55 ab |.\n\"...|db..y.U.|
|00000490| cf cd ce 21 ab ca cf 94 | cf 95 7b 89 12 47 89 13 |...!....|..{..G..|
|000004a0| 0d 55 ab 88 0e 07 54 16 | 07 0b aa 8c 0b 0d 57 ab |.U....T.|......W.|
|000004b0| 86 cf 16 07 0b aa 81 0d | 15 d0 94 d0 95 7b 13 d1 |........|.....{..|
|000004c0| 0e 0b 0b 5c 22 ab 8f d2 | 0b c6 48 21 0b d0 c0 4f |...\"...|..H!...O|
|000004d0| d3 d4 20 52 aa 81 0b 13 | 5c 6e 0b d5 51 09 42 11 |.. R....|\n..Q.B.|
|000004e0| aa 2b 29 0e 07 cf 55 ac | 8a 0e 16 d5 50 d7 d8 09 |.+)...U.|....P...|
|000004f0| 5c 22 42 11 d9 09 da 5c | 22 2e 06 87 22 20 5b 6e |\"B....\|"..." [n|
|00000500| 69 6c 20 74 72 65 65 20 | 69 6e 64 65 6e 74 20 65 |il tree |indent e|
|00000510| 6e 74 72 79 20 38 30 30 | 30 20 6d 69 6e 2d 69 6e |ntry 800|0 min-in|
|00000520| 64 65 6e 74 20 30 20 6d | 69 6e 2d 63 6f 75 6e 74 |dent 0 m|in-count|
|00000530| 20 66 6f 72 6d 61 74 20 | 22 5e 25 73 20 22 20 62 | format |"^%s " b|
|00000540| 72 2d 66 65 61 74 75 72 | 65 2d 74 79 70 65 2d 72 |r-featur|e-type-r|
|00000550| 65 67 65 78 70 20 66 65 | 61 74 75 72 65 2d 6d 61 |egexp fe|ature-ma|
|00000560| 74 63 68 20 2d 31 20 6c | 6f 6f 6b 69 6e 67 2d 61 |tch -1 l|ooking-a|
|00000570| 74 20 22 5c 5c 28 5b 20 | 09 5d 2a 5c 5c 29 5c 5c |t "\\([ |.]*\\)\\|
|00000580| 28 2e 2b 5c 5c 29 22 20 | 31 20 32 20 73 74 72 69 |(.+\\)" |1 2 stri|
|00000590| 6e 67 2d 6d 61 74 63 68 | 20 63 68 61 72 2d 74 6f |ng-match| char-to|
|000005a0| 2d 73 74 72 69 6e 67 20 | 22 5e 5e 22 20 62 72 2d |-string |"^^" br-|
|000005b0| 66 65 61 74 75 72 65 2d | 67 65 74 2d 73 69 67 6e |feature-|get-sign|
|000005c0| 61 74 75 72 65 20 22 5c | 6e 22 20 2a 62 72 2d 74 |ature "\|n" *br-t|
|000005d0| 72 65 65 2d 72 6f 6f 74 | 2d 6e 61 6d 65 2a 20 6d |ree-root|-name* m|
|000005e0| 61 70 63 61 72 20 23 5b | 28 6e 6f 64 65 29 20 22 |apcar #[|(node) "|
|000005f0| c0 09 50 87 22 20 5b 22 | 20 20 22 20 6e 6f 64 65 |..P." ["|  " node|
|00000600| 5d 20 32 5d 20 62 72 2d | 74 72 65 65 2d 6c 6f 61 |] 2] br-|tree-loa|
|00000610| 64 20 74 5d 20 35 20 22 | 5c 0a 53 74 61 72 74 20 |d t] 5 "|\.Start |
|00000620| 74 68 65 20 61 70 70 72 | 6f 70 72 69 61 74 65 20 |the appr|opriate |
|00000630| 74 72 65 65 20 61 70 70 | 6c 69 63 61 74 69 6f 6e |tree app|lication|
|00000640| 20 77 69 74 68 20 74 68 | 65 20 74 72 65 65 20 66 | with th|e tree f|
|00000650| 72 6f 6d 20 63 75 72 72 | 65 6e 74 20 6c 69 73 74 |rom curr|ent list|
|00000660| 69 6e 67 20 62 75 66 66 | 65 72 2e 22 20 6e 69 6c |ing buff|er." nil|
|00000670| 5d 29 0a 28 66 73 65 74 | 20 27 62 72 2d 74 72 65 |]).(fset| 'br-tre|
|00000680| 65 2d 64 6f 2d 63 6d 64 | 20 23 5b 28 6c 61 6e 67 |e-do-cmd| #[(lang|
|00000690| 20 65 6e 76 20 63 6d 64 | 20 6e 6f 64 65 29 20 22 | env cmd| node) "|
|000006a0| 08 09 9a ac 96 c2 0b c4 | 50 21 1d c6 20 ab 86 0d |........|P!.. ...|
|000006b0| 08 21 88 aa 85 0d 08 c7 | 5c 22 88 29 c8 4b c9 3d |.!......|\".).K.=|
|000006c0| ac 86 c8 0e 5c 6e 21 ae | a4 0e 0b cc 98 ab 87 cd |....\n!.|........|
|000006d0| ce 89 0e 5c 6e 23 87 0e | 0b cf 98 ab 87 cd ce c7 |...\n#..|........|
|000006e0| 0e 5c 6e 23 87 d0 20 88 | d1 d2 d3 0e 0b 5c 22 21 |.\n#.. .|.....\"!|
|000006f0| 87 22 20 5b 65 6e 76 20 | 62 72 2d 65 6e 76 2d 66 |." [env |br-env-f|
|00000700| 69 6c 65 20 69 6e 74 65 | 72 6e 2d 73 6f 66 74 20 |ile inte|rn-soft |
|00000710| 6c 61 6e 67 20 22 62 72 | 6f 77 73 65 22 20 62 72 |lang "br|owse" br|
|00000720| 20 62 72 2d 69 6e 2d 62 | 72 6f 77 73 65 72 20 74 | br-in-b|rowser t|
|00000730| 20 62 72 2d 66 65 61 74 | 75 72 65 2d 74 72 65 65 | br-feat|ure-tree|
|00000740| 2d 63 6f 6d 6d 61 6e 64 | 2d 70 20 62 72 2d 75 6e |-command|-p br-un|
|00000750| 64 65 66 69 6e 65 64 2d | 66 75 6e 63 74 69 6f 6e |defined-|function|
|00000760| 20 6e 6f 64 65 20 63 6d | 64 20 22 62 72 2d 76 69 | node cm|d "br-vi|
|00000770| 65 77 22 20 62 72 2d 76 | 69 65 77 20 6e 69 6c 20 |ew" br-v|iew nil |
|00000780| 22 62 72 2d 65 64 69 74 | 22 20 62 65 65 70 20 6d |"br-edit|" beep m|
|00000790| 65 73 73 61 67 65 20 66 | 6f 72 6d 61 74 20 22 28 |essage f|ormat "(|
|000007a0| 4f 4f 2d 42 72 6f 77 73 | 65 72 29 3a 20 20 49 6c |OO-Brows|er):  Il|
|000007b0| 6c 65 67 61 6c 20 63 6f | 6d 6d 61 6e 64 3a 20 25 |legal co|mmand: %|
|000007c0| 73 22 5d 20 34 5d 29 0a | 28 66 73 65 74 20 27 62 |s"] 4]).|(fset 'b|
|000007d0| 72 2d 74 72 65 65 2d 66 | 65 61 74 75 72 65 73 2d |r-tree-f|eatures-|
|000007e0| 74 6f 67 67 6c 65 20 23 | 5b 6e 69 6c 20 22 08 3f |toggle #|[nil ".?|
|000007f0| 10 c1 c2 08 ab 83 c3 aa | 81 c4 5c 22 87 22 20 5b |........|..\"." [|
|00000800| 62 72 2d 73 68 6f 77 2d | 66 65 61 74 75 72 65 73 |br-show-|features|
|00000810| 20 6d 65 73 73 61 67 65 | 20 22 4e 65 77 20 67 72 | message| "New gr|
|00000820| 61 70 68 69 63 61 6c 20 | 4f 4f 2d 42 72 6f 77 73 |aphical |OO-Brows|
|00000830| 65 72 73 20 77 69 6c 6c | 20 25 73 73 68 6f 77 20 |ers will| %sshow |
|00000840| 66 65 61 74 75 72 65 73 | 2e 22 20 22 22 20 22 6e |features|." "" "n|
|00000850| 6f 74 20 22 5d 20 33 20 | 22 5c 0a 54 6f 67 67 6c |ot "] 3 |"\.Toggl|
|00000860| 65 20 62 65 74 77 65 65 | 6e 20 73 68 6f 77 69 6e |e betwee|n showin|
|00000870| 67 20 61 6e 64 20 68 69 | 64 69 6e 67 20 66 65 61 |g and hi|ding fea|
|00000880| 74 75 72 65 73 20 77 68 | 65 6e 20 27 62 72 2d 74 |tures wh|en 'br-t|
|00000890| 72 65 65 27 20 69 73 20 | 69 6e 76 6f 6b 65 64 20 |ree' is |invoked |
|000008a0| 74 6f 20 64 69 73 70 6c | 61 79 20 64 65 73 63 65 |to displ|ay desce|
|000008b0| 6e 64 61 6e 74 73 20 67 | 72 61 70 68 69 63 61 6c |ndants g|raphical|
|000008c0| 6c 79 2e 22 20 6e 69 6c | 5d 29 0a 28 66 73 65 74 |ly." nil|]).(fset|
|000008d0| 20 27 62 72 2d 74 72 65 | 65 2d 6b 69 6c 6c 20 23 | 'br-tre|e-kill #|
|000008e0| 5b 6e 69 6c 20 22 c0 09 | 5c 6e c3 23 ad 83 c4 89 |[nil "..|\n.#....|
|000008f0| 12 87 22 20 5b 62 72 2d | 6b 69 6c 6c 2d 70 72 6f |.." [br-|kill-pro|
|00000900| 63 65 73 73 2d 67 72 6f | 75 70 20 62 72 2d 74 72 |cess-gro|up br-tr|
|00000910| 65 65 2d 6e 61 6d 65 20 | 62 72 2d 74 72 65 65 2d |ee-name |br-tree-|
|00000920| 6e 75 6d 20 22 54 72 65 | 65 20 64 69 73 70 6c 61 |num "Tre|e displa|
|00000930| 79 73 22 20 30 5d 20 34 | 20 22 5c 0a 4b 69 6c 6c |ys" 0] 4| "\.Kill|
|00000940| 20 61 6c 6c 20 63 75 72 | 72 65 6e 74 20 27 54 72 | all cur|rent 'Tr|
|00000950| 65 65 27 20 73 75 62 2d | 70 72 6f 63 65 73 73 65 |ee' sub-|processe|
|00000960| 73 2e 22 20 6e 69 6c 5d | 29 0a 28 66 73 65 74 20 |s." nil]|).(fset |
|00000970| 27 62 72 2d 74 72 65 65 | 2d 6c 6f 61 64 20 23 5b |'br-tree|-load #[|
|00000980| 28 63 6c 61 73 73 65 73 | 2d 6f 72 2d 74 72 65 65 |(classes|-or-tree|
|00000990| 20 26 6f 70 74 69 6f 6e | 61 6c 20 74 72 65 65 2d | &option|al tree-|
|000009a0| 70 29 20 22 08 ad e1 09 | 3f ad dd 70 c2 c3 20 c4 |p) "....|?..p.. .|
|000009b0| 0d 54 89 15 21 c6 52 1e | 07 1e 08 0e 09 ad c8 ca |.T..!.R.|........|
|000009c0| 0e 07 21 88 7e 88 cb 16 | 0c cd 20 88 ce 0e 0f ce |..!.~...|.. .....|
|000009d0| 08 d0 b1 05 88 0e 11 ab | 88 d2 d3 0e 09 5c 22 88 |........|.....\".|
|000009e0| aa 85 d4 0e 09 21 88 d5 | d6 64 5c 22 88 d7 20 88 |.....!..|.d\".. .|
|000009f0| d8 70 21 88 d9 0e 08 21 | 88 0e 1a db 3d ab 86 dc |.p!....!|....=...|
|00000a00| 0e 07 21 aa 84 dd 0e 07 | 21 2a 87 22 20 5b 62 72 |..!.....|!*." [br|
|00000a10| 2d 65 6e 76 2d 66 69 6c | 65 20 62 72 2d 65 6e 76 |-env-fil|e br-env|
|00000a20| 2d 73 70 65 63 20 22 2f | 74 6d 70 2f 62 72 2d 22 |-spec "/|tmp/br-"|
|00000a30| 20 75 73 65 72 2d 72 65 | 61 6c 2d 6c 6f 67 69 6e | user-re|al-login|
|00000a40| 2d 6e 61 6d 65 20 69 6e | 74 2d 74 6f 2d 73 74 72 |-name in|t-to-str|
|00000a50| 69 6e 67 20 62 72 2d 74 | 72 65 65 2d 6e 75 6d 20 |ing br-t|ree-num |
|00000a60| 22 2e 74 72 65 65 22 20 | 74 72 65 65 2d 66 69 6c |".tree" |tree-fil|
|00000a70| 65 20 6f 62 75 66 20 63 | 6c 61 73 73 65 73 2d 6f |e obuf c|lasses-o|
|00000a80| 72 2d 74 72 65 65 20 66 | 69 6e 64 2d 66 69 6c 65 |r-tree f|ind-file|
|00000a90| 20 6e 69 6c 20 62 75 66 | 66 65 72 2d 72 65 61 64 | nil buf|fer-read|
|00000aa0| 2d 6f 6e 6c 79 20 65 72 | 61 73 65 2d 62 75 66 66 |-only er|ase-buff|
|00000ab0| 65 72 20 22 5e 5e 22 20 | 62 72 2d 6c 61 6e 67 2d |er "^^" |br-lang-|
|00000ac0| 70 72 65 66 69 78 20 22 | 5c 6e 22 20 74 72 65 65 |prefix "|\n" tree|
|00000ad0| 2d 70 20 6d 61 70 63 61 | 72 20 69 6e 73 65 72 74 |-p mapca|r insert|
|00000ae0| 20 62 72 2d 74 72 65 65 | 2d 62 75 69 6c 64 20 75 | br-tree|-build u|
|00000af0| 6e 74 61 62 69 66 79 20 | 31 20 73 61 76 65 2d 62 |ntabify |1 save-b|
|00000b00| 75 66 66 65 72 20 6b 69 | 6c 6c 2d 62 75 66 66 65 |uffer ki|ll-buffe|
|00000b10| 72 20 73 77 69 74 63 68 | 2d 74 6f 2d 62 75 66 66 |r switch|-to-buff|
|00000b20| 65 72 20 77 69 6e 64 6f | 77 2d 73 79 73 74 65 6d |er windo|w-system|
|00000b30| 20 78 20 62 72 2d 74 72 | 65 65 2d 78 2d 6c 6f 61 | x br-tr|ee-x-loa|
|00000b40| 64 2d 74 72 65 65 2d 66 | 69 6c 65 20 62 72 2d 74 |d-tree-f|ile br-t|
|00000b50| 72 65 65 2d 6e 78 2d 6c | 6f 61 64 2d 74 72 65 65 |ree-nx-l|oad-tree|
|00000b60| 2d 66 69 6c 65 5d 20 36 | 20 22 5c 0a 53 74 61 72 |-file] 6| "\.Star|
|00000b70| 74 20 74 68 65 20 61 70 | 70 72 6f 70 72 69 61 74 |t the ap|propriat|
|00000b80| 65 20 74 72 65 65 20 61 | 70 70 6c 69 63 61 74 69 |e tree a|pplicati|
|00000b90| 6f 6e 20 75 73 69 6e 67 | 20 74 72 65 65 73 20 66 |on using| trees f|
|00000ba0| 72 6f 6d 20 43 4c 41 53 | 53 45 53 2d 4f 52 2d 54 |rom CLAS|SES-OR-T|
|00000bb0| 52 45 45 2e 0a 4f 70 74 | 69 6f 6e 61 6c 20 54 52 |REE..Opt|ional TR|
|00000bc0| 45 45 2d 50 20 6e 6f 6e | 2d 6e 69 6c 20 6d 65 61 |EE-P non|-nil mea|
|00000bd0| 6e 73 20 43 4c 41 53 53 | 45 53 2d 4f 52 2d 54 52 |ns CLASS|ES-OR-TR|
|00000be0| 45 45 20 69 73 20 61 20 | 74 72 65 65 20 72 65 61 |EE is a |tree rea|
|00000bf0| 64 79 20 66 6f 72 20 64 | 69 73 70 6c 61 79 2e 22 |dy for d|isplay."|
|00000c00| 20 28 6c 69 73 74 20 22 | 73 43 6c 61 73 73 20 74 | (list "|sClass t|
|00000c10| 6f 20 73 68 6f 77 20 64 | 65 73 63 65 6e 64 65 6e |o show d|escenden|
|00000c20| 63 79 20 67 72 61 70 68 | 20 6f 66 3a 20 22 29 5d |cy graph| of: ")]|
|00000c30| 29 0a 28 66 73 65 74 20 | 27 62 72 2d 74 72 65 65 |).(fset |'br-tree|
|00000c40| 2d 6e 78 2d 6c 6f 61 64 | 2d 74 72 65 65 2d 66 69 |-nx-load|-tree-fi|
|00000c50| 6c 65 20 23 5b 28 74 72 | 65 65 2d 66 69 6c 65 29 |le #[(tr|ee-file)|
|00000c60| 20 22 c0 11 c2 0b 21 89 | 1c ab 97 c5 0c 21 c6 3d | "....!.|.....!.=|
|00000c70| ab 90 c7 c8 c9 ca c9 cb | cc 0e 0d 21 0e 0e 26 07 |........|...!..&.|
|00000c80| aa 9e cf d0 d1 0e 12 5c | 22 21 1e 13 d4 0b c9 0e |.......\|"!......|
|00000c90| 0d 0e 0e 24 89 14 ad 88 | d5 0c d6 5c 22 88 d7 0c |...$....|...\"...|
|00000ca0| 21 29 29 87 22 20 5b 74 | 20 64 65 6c 65 74 65 2d |!))." [t| delete-|
|00000cb0| 65 78 69 74 65 64 2d 70 | 72 6f 63 65 73 73 65 73 |exited-p|rocesses|
|00000cc0| 20 67 65 74 2d 70 72 6f | 63 65 73 73 20 62 72 2d | get-pro|cess br-|
|00000cd0| 74 72 65 65 2d 6e 61 6d | 65 20 70 72 6f 63 20 70 |tree-nam|e proc p|
|00000ce0| 72 6f 63 65 73 73 2d 73 | 74 61 74 75 73 20 72 75 |rocess-s|tatus ru|
|00000cf0| 6e 20 63 61 6c 6c 2d 70 | 72 6f 63 65 73 73 20 22 |n call-p|rocess "|
|00000d00| 6f 70 65 6e 22 20 6e 69 | 6c 20 30 20 22 2d 61 22 |open" ni|l 0 "-a"|
|00000d10| 20 66 69 6c 65 2d 6e 61 | 6d 65 2d 6e 6f 6e 64 69 | file-na|me-nondi|
|00000d20| 72 65 63 74 6f 72 79 20 | 2a 62 72 2d 74 72 65 65 |rectory |*br-tree|
|00000d30| 2d 70 72 6f 67 2d 6e 61 | 6d 65 2a 20 74 72 65 65 |-prog-na|me* tree|
|00000d40| 2d 66 69 6c 65 20 66 69 | 6c 65 2d 6e 61 6d 65 2d |-file fi|le-name-|
|00000d50| 61 73 2d 64 69 72 65 63 | 74 6f 72 79 20 65 78 70 |as-direc|tory exp|
|00000d60| 61 6e 64 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 22 74 |and-file|-name "t|
|00000d70| 72 65 65 2d 6e 78 22 20 | 62 72 2d 64 69 72 65 63 |ree-nx" |br-direc|
|00000d80| 74 6f 72 79 20 64 65 66 | 61 75 6c 74 2d 64 69 72 |tory def|ault-dir|
|00000d90| 65 63 74 6f 72 79 20 73 | 74 61 72 74 2d 70 72 6f |ectory s|tart-pro|
|00000da0| 63 65 73 73 20 73 65 74 | 2d 70 72 6f 63 65 73 73 |cess set|-process|
|00000db0| 2d 66 69 6c 74 65 72 20 | 62 72 2d 74 72 65 65 2d |-filter |br-tree-|
|00000dc0| 66 69 6c 74 65 72 20 70 | 72 6f 63 65 73 73 2d 6b |filter p|rocess-k|
|00000dd0| 69 6c 6c 2d 77 69 74 68 | 6f 75 74 2d 71 75 65 72 |ill-with|out-quer|
|00000de0| 79 5d 20 39 20 22 5c 0a | 4c 6f 61 64 20 61 20 70 |y] 9 "\.|Load a p|
|00000df0| 72 65 2d 77 72 69 74 74 | 65 6e 20 54 52 45 45 2d |re-writt|en TREE-|
|00000e00| 46 49 4c 45 20 61 6e 64 | 20 64 69 73 70 6c 61 79 |FILE and| display|
|00000e10| 20 69 74 20 69 6e 20 61 | 6e 20 58 20 4f 4f 2d 42 | it in a|n X OO-B|
|00000e20| 72 6f 77 73 65 72 2e 22 | 5d 29 0a 28 66 73 65 74 |rowser."|]).(fset|
|00000e30| 20 27 62 72 2d 74 72 65 | 65 2d 78 2d 6c 6f 61 64 | 'br-tre|e-x-load|
|00000e40| 2d 74 72 65 65 2d 66 69 | 6c 65 20 23 5b 28 74 72 |-tree-fi|le #[(tr|
|00000e50| 65 65 2d 66 69 6c 65 29 | 20 22 c0 11 c2 1b c4 0d |ee-file)| "......|
|00000e60| c6 0e 07 21 50 c2 0e 08 | 0e 09 24 89 13 ad 88 ca |...!P...|..$.....|
|00000e70| 0b cb 5c 22 88 cc 0b 21 | 29 87 22 20 5b 74 20 64 |..\"...!|)." [t d|
|00000e80| 65 6c 65 74 65 2d 65 78 | 69 74 65 64 2d 70 72 6f |elete-ex|ited-pro|
|00000e90| 63 65 73 73 65 73 20 6e | 69 6c 20 70 72 6f 63 20 |cesses n|il proc |
|00000ea0| 73 74 61 72 74 2d 70 72 | 6f 63 65 73 73 20 62 72 |start-pr|ocess br|
|00000eb0| 2d 74 72 65 65 2d 6e 61 | 6d 65 20 69 6e 74 2d 74 |-tree-na|me int-t|
|00000ec0| 6f 2d 73 74 72 69 6e 67 | 20 62 72 2d 74 72 65 65 |o-string| br-tree|
|00000ed0| 2d 6e 75 6d 20 2a 62 72 | 2d 74 72 65 65 2d 70 72 |-num *br|-tree-pr|
|00000ee0| 6f 67 2d 6e 61 6d 65 2a | 20 74 72 65 65 2d 66 69 |og-name*| tree-fi|
|00000ef0| 6c 65 20 73 65 74 2d 70 | 72 6f 63 65 73 73 2d 66 |le set-p|rocess-f|
|00000f00| 69 6c 74 65 72 20 62 72 | 2d 74 72 65 65 2d 66 69 |ilter br|-tree-fi|
|00000f10| 6c 74 65 72 20 70 72 6f | 63 65 73 73 2d 6b 69 6c |lter pro|cess-kil|
|00000f20| 6c 2d 77 69 74 68 6f 75 | 74 2d 71 75 65 72 79 5d |l-withou|t-query]|
|00000f30| 20 36 20 22 5c 0a 4c 6f | 61 64 20 61 20 70 72 65 | 6 "\.Lo|ad a pre|
|00000f40| 2d 77 72 69 74 74 65 6e | 20 54 52 45 45 2d 46 49 |-written| TREE-FI|
|00000f50| 4c 45 20 61 6e 64 20 64 | 69 73 70 6c 61 79 20 69 |LE and d|isplay i|
|00000f60| 74 20 69 6e 20 61 6e 20 | 58 20 4f 4f 2d 42 72 6f |t in an |X OO-Bro|
|00000f70| 77 73 65 72 2e 22 5d 29 | 0a 28 64 65 66 63 6f 6e |wser."])|.(defcon|
|00000f80| 73 74 20 2a 62 72 2d 74 | 72 65 65 2d 72 6f 6f 74 |st *br-t|ree-root|
|00000f90| 2d 6e 61 6d 65 2a 20 22 | 4e 4f 2d 52 4f 4f 54 22 |-name* "|NO-ROOT"|
|00000fa0| 20 22 5c 0a 4e 61 6d 65 | 20 74 6f 20 67 69 76 65 | "\.Name| to give|
|00000fb0| 20 72 6f 6f 74 20 74 72 | 65 65 20 6e 6f 64 65 20 | root tr|ee node |
|00000fc0| 77 68 65 6e 20 67 72 61 | 70 68 20 77 69 74 68 20 |when gra|ph with |
|00000fd0| 6e 6f 20 72 6f 6f 74 20 | 69 73 20 75 73 65 64 20 |no root |is used |
|00000fe0| 61 73 20 69 6e 70 75 74 | 2e 22 29 0a 28 66 73 65 |as input|.").(fse|
|00000ff0| 74 20 27 62 72 2d 74 72 | 65 65 2d 62 75 69 6c 64 |t 'br-tr|ee-build|
|00001000| 20 23 5b 28 63 6c 61 73 | 73 2d 6c 69 73 74 20 26 | #[(clas|s-list &|
|00001010| 6f 70 74 69 6f 6e 61 6c | 20 69 6e 64 65 6e 74 20 |optional| indent |
|00001020| 6f 66 66 73 65 74 29 20 | 22 08 ac 82 c1 10 5c 6e |offset) |".....\n|
|00001030| ac 82 c3 12 c4 c5 89 1e | 06 1e 07 1e 08 08 c1 55 |........|.......U|
|00001040| ab 92 c5 16 09 0e 5c 6e | 47 cb 55 ac 88 0e 0c cd |......\n|G.U.....|
|00001050| b1 02 88 5c 6e 10 0e 5c | 6e ab 89 08 6a 88 ce cf |...\n..\|n...j...|
|00001060| 0e 5c 6e 5c 22 88 2b 08 | c1 55 ad 84 c5 89 16 09 |.\n\".+.|.U......|
|00001070| 87 22 20 5b 69 6e 64 65 | 6e 74 20 30 20 6f 66 66 |." [inde|nt 0 off|
|00001080| 73 65 74 20 32 20 22 20 | 2e 2e 2e 22 20 6e 69 6c |set 2 " |..." nil|
|00001090| 20 65 78 70 61 6e 64 2d | 73 75 62 74 72 65 65 20 | expand-|subtree |
|000010a0| 63 68 20 70 72 65 76 2d | 65 78 70 61 6e 73 69 6f |ch prev-|expansio|
|000010b0| 6e 2d 73 74 72 20 62 72 | 2d 74 6d 70 2d 63 6c 61 |n-str br|-tmp-cla|
|000010c0| 73 73 2d 73 65 74 20 63 | 6c 61 73 73 2d 6c 69 73 |ss-set c|lass-lis|
|000010d0| 74 20 31 20 2a 62 72 2d | 74 72 65 65 2d 72 6f 6f |t 1 *br-|tree-roo|
|000010e0| 74 2d 6e 61 6d 65 2a 20 | 22 5c 6e 22 20 6d 61 70 |t-name* |"\n" map|
|000010f0| 63 61 72 20 23 5b 28 63 | 29 20 22 c0 09 5c 6e 5c |car #[(c|) "..\n\|
|00001100| 22 3f ad 85 09 5c 6e 42 | 89 12 89 13 ad 83 c4 09 |"?...\nB|........|
|00001110| 21 15 0e 06 6a 88 09 63 | 88 0b ac 89 c7 09 21 ab |!...j..c|......!.|
|00001120| 84 0e 08 63 88 c9 63 88 | 0e 5c 6e ad 8b cb 09 0b |...c..c.|.\n.....|
|00001130| 0e 06 0e 0c 5c 5c 0e 0c | 24 3f ad 8d 0d ad 8a cd |....\\..|$?......|
|00001140| 0d 0e 06 0e 0c 5c 5c 0e | 0c 23 87 22 20 5b 62 72 |.....\\.|.#." [br|
|00001150| 2d 6d 65 6d 62 65 72 20 | 63 20 62 72 2d 74 6d 70 |-member |c br-tmp|
|00001160| 2d 63 6c 61 73 73 2d 73 | 65 74 20 65 78 70 61 6e |-class-s|et expan|
|00001170| 64 2d 73 75 62 74 72 65 | 65 20 62 72 2d 67 65 74 |d-subtre|e br-get|
|00001180| 2d 63 68 69 6c 64 72 65 | 6e 20 63 68 20 69 6e 64 |-childre|n ch ind|
|00001190| 65 6e 74 20 62 72 2d 68 | 61 73 2d 63 68 69 6c 64 |ent br-h|as-child|
|000011a0| 72 65 6e 2d 70 20 70 72 | 65 76 2d 65 78 70 61 6e |ren-p pr|ev-expan|
|000011b0| 73 69 6f 6e 2d 73 74 72 | 20 22 5c 6e 22 20 62 72 |sion-str| "\n" br|
|000011c0| 2d 73 68 6f 77 2d 66 65 | 61 74 75 72 65 73 20 62 |-show-fe|atures b|
|000011d0| 72 2d 74 72 65 65 2d 62 | 75 69 6c 64 2d 66 65 61 |r-tree-b|uild-fea|
|000011e0| 74 75 72 65 73 20 6f 66 | 66 73 65 74 20 62 72 2d |tures of|fset br-|
|000011f0| 74 72 65 65 2d 62 75 69 | 6c 64 5d 20 36 5d 5d 20 |tree-bui|ld] 6]] |
|00001200| 33 20 22 5c 0a 49 6e 73 | 65 72 74 20 64 65 73 63 |3 "\.Ins|ert desc|
|00001210| 65 6e 64 61 6e 74 20 74 | 72 65 65 73 20 73 74 61 |endant t|rees sta|
|00001220| 72 74 69 6e 67 20 77 69 | 74 68 20 63 6c 61 73 73 |rting wi|th class|
|00001230| 65 73 20 66 72 6f 6d 20 | 43 4c 41 53 53 2d 4c 49 |es from |CLASS-LI|
|00001240| 53 54 2e 0a 49 6e 64 65 | 6e 74 20 65 61 63 68 20 |ST..Inde|nt each |
|00001250| 63 6c 61 73 73 20 69 6e | 20 43 4c 41 53 53 2d 4c |class in| CLASS-L|
|00001260| 49 53 54 20 62 79 20 6f | 70 74 69 6f 6e 61 6c 20 |IST by o|ptional |
|00001270| 49 4e 44 45 4e 54 20 73 | 70 61 63 65 73 20 28 64 |INDENT s|paces (d|
|00001280| 65 66 61 75 6c 74 20 69 | 73 20 30 20 69 6e 0a 6f |efault i|s 0 in.o|
|00001290| 72 64 65 72 20 74 6f 20 | 65 6e 73 75 72 65 20 70 |rder to |ensure p|
|000012a0| 72 6f 70 65 72 20 69 6e | 69 74 69 61 6c 69 7a 61 |roper in|itializa|
|000012b0| 74 69 6f 6e 29 2e 20 20 | 4f 66 66 73 65 74 20 65 |tion).  |Offset e|
|000012c0| 61 63 68 20 63 68 69 6c | 64 20 6c 65 76 65 6c 20 |ach chil|d level |
|000012d0| 62 79 20 6f 70 74 69 6f | 6e 61 6c 0a 4f 46 46 53 |by optio|nal.OFFS|
|000012e0| 45 54 20 73 70 61 63 65 | 73 20 66 72 6f 6d 20 69 |ET space|s from i|
|000012f0| 74 73 20 70 61 72 65 6e | 74 20 28 77 68 69 63 68 |ts paren|t (which|
|00001300| 20 6d 75 73 74 20 62 65 | 20 67 72 65 61 74 65 72 | must be| greater|
|00001310| 20 74 68 61 6e 20 7a 65 | 72 6f 2c 20 64 65 66 61 | than ze|ro, defa|
|00001320| 75 6c 74 20 32 29 2e 22 | 5d 29 0a 28 66 73 65 74 |ult 2)."|]).(fset|
|00001330| 20 27 62 72 2d 74 72 65 | 65 2d 62 75 69 6c 64 2d | 'br-tre|e-build-|
|00001340| 66 65 61 74 75 72 65 73 | 20 23 5b 28 63 20 65 78 |features| #[(c ex|
|00001350| 70 61 6e 64 2d 73 75 62 | 74 72 65 65 20 69 6e 64 |pand-sub|tree ind|
|00001360| 65 6e 74 20 6f 66 66 73 | 65 74 29 20 22 c0 89 19 |ent offs|et) "...|
|00001370| 1a 0b ad a4 c4 c5 c6 0e | 07 21 5c 22 89 12 ad 99 |........|.!\"....|
|00001380| c4 c8 5c 6e 5c 22 88 0b | ad 84 c9 0e 07 21 89 11 |..\n\"..|.....!..|
|00001390| ab 88 ca 09 0e 0b 0e 0c | 23 88 cd 2a 87 22 20 5b |........|#..*." [|
|000013a0| 6e 69 6c 20 63 68 20 66 | 65 61 74 75 72 65 73 20 |nil ch f|eatures |
|000013b0| 65 78 70 61 6e 64 2d 73 | 75 62 74 72 65 65 20 6d |expand-s|ubtree m|
|000013c0| 61 70 63 61 72 20 23 5b | 28 66 65 61 74 75 72 65 |apcar #[|(feature|
|000013d0| 2d 74 61 67 29 20 22 c0 | 09 c2 c3 23 c4 09 51 87 |-tag) ".|...#..Q.|
|000013e0| 22 20 5b 62 72 2d 66 65 | 61 74 75 72 65 2d 73 69 |" [br-fe|ature-si|
|000013f0| 67 6e 61 74 75 72 65 2d | 74 6f 2d 6e 61 6d 65 20 |gnature-|to-name |
|00001400| 66 65 61 74 75 72 65 2d | 74 61 67 20 6e 69 6c 20 |feature-|tag nil |
|00001410| 74 20 22 5e 5e 22 5d 20 | 34 5d 20 62 72 2d 6c 69 |t "^^"] |4] br-li|
|00001420| 73 74 2d 66 65 61 74 75 | 72 65 73 20 63 20 23 5b |st-featu|res c #[|
|00001430| 28 66 65 61 74 75 72 65 | 29 20 22 08 6a 88 09 c2 |(feature|) ".j...|
|00001440| b1 02 87 22 20 5b 69 6e | 64 65 6e 74 20 66 65 61 |..." [in|dent fea|
|00001450| 74 75 72 65 20 22 5c 6e | 22 5d 20 32 5d 20 62 72 |ture "\n|"] 2] br|
|00001460| 2d 67 65 74 2d 63 68 69 | 6c 64 72 65 6e 20 62 72 |-get-chi|ldren br|
|00001470| 2d 74 72 65 65 2d 62 75 | 69 6c 64 20 69 6e 64 65 |-tree-bu|ild inde|
|00001480| 6e 74 20 6f 66 66 73 65 | 74 20 74 5d 20 34 20 22 |nt offse|t t] 4 "|
|00001490| 5c 0a 45 61 63 68 20 6c | 61 6e 67 75 61 67 65 20 |\.Each l|anguage |
|000014a0| 75 6e 64 65 72 20 77 68 | 69 63 68 20 74 68 69 73 |under wh|ich this|
|000014b0| 20 66 75 6e 63 74 69 6f | 6e 20 69 73 20 63 61 6c | functio|n is cal|
|000014c0| 6c 65 64 20 6d 75 73 74 | 20 64 65 66 69 6e 65 20 |led must| define |
|000014d0| 69 74 73 20 6f 77 6e 0a | 76 65 72 73 69 6f 6e 20 |its own.|version |
|000014e0| 6f 66 20 27 62 72 2d 6c | 69 73 74 2d 66 65 61 74 |of 'br-l|ist-feat|
|000014f0| 75 72 65 73 27 20 61 6e | 64 20 27 62 72 2d 66 65 |ures' an|d 'br-fe|
|00001500| 61 74 75 72 65 2d 73 69 | 67 6e 61 74 75 72 65 2d |ature-si|gnature-|
|00001510| 74 6f 2d 6e 61 6d 65 27 | 2e 22 5d 29 0a 28 66 73 |to-name'|."]).(fs|
|00001520| 65 74 20 27 62 72 2d 74 | 72 65 65 2d 66 69 6c 74 |et 'br-t|ree-filt|
|00001530| 65 72 20 23 5b 28 70 72 | 6f 63 65 73 73 20 6f 75 |er #[(pr|ocess ou|
|00001540| 74 70 75 74 2d 73 74 72 | 29 20 22 c0 89 89 89 19 |tput-str|) ".....|
|00001550| 1a 1b 1c c5 c6 0e 07 5c | 22 ac 8a 0e 08 0e 07 50 |.......\|"......P|
|00001560| 89 16 08 aa f2 0e 08 0e | 07 c9 89 94 4f 50 89 16 |........|....OP..|
|00001570| 08 47 ca 56 ab 90 0e 08 | cb c0 4f cc 9a ab 87 0e |.G.V....|..O.....|
|00001580| 08 c9 cb 4f 16 08 0e 08 | 47 cd 56 ab bd 0e 08 c9 |...O....|G.V.....|
|00001590| ce 4f cf 9a ab b4 c5 d0 | 0e 08 5c 22 ab ad 0e 08 |.O......|..\"....|
|000015a0| cd 94 ce 5c 5c cd 95 4f | 14 0e 08 ce 94 ce 95 4f |...\\..O|.......O|
|000015b0| 13 0e 08 d1 94 d1 95 4f | 12 0e 08 d2 94 d2 95 4f |.......O|.......O|
|000015c0| 11 c0 16 08 d3 0c 0b 5c | 6e 09 24 aa 8d d4 20 88 |.......\|n.$... .|
|000015d0| d5 d6 0e 08 5c 22 88 c0 | 89 16 08 2c 87 22 20 5b |....\"..|...,." [|
|000015e0| 6e 69 6c 20 62 72 2d 6e | 6f 64 65 2d 6e 6d 20 62 |nil br-n|ode-nm b|
|000015f0| 72 2d 63 6d 64 2d 6e 6d | 20 62 72 2d 65 6e 76 2d |r-cmd-nm| br-env-|
|00001600| 6e 6d 20 62 72 2d 6c 61 | 6e 67 2d 70 78 20 73 74 |nm br-la|ng-px st|
|00001610| 72 69 6e 67 2d 6d 61 74 | 63 68 20 22 5c 6e 22 20 |ring-mat|ch "\n" |
|00001620| 6f 75 74 70 75 74 2d 73 | 74 72 20 62 72 2d 63 6d |output-s|tr br-cm|
|00001630| 64 2d 73 74 72 20 30 20 | 39 20 2d 34 20 22 20 2e |d-str 0 |9 -4 " .|
|00001640| 2e 2e 22 20 31 20 32 20 | 22 5e 5e 22 20 22 5e 5e |.." 1 2 |"^^" "^^|
|00001650| 5e 5c 5c 28 2e 2b 5c 5c | 29 5e 5e 5c 5c 28 2e 2b |^\\(.+\\|)^^\\(.+|
|00001660| 5c 5c 29 5e 5e 5c 5c 28 | 2e 2b 5c 5c 29 5e 5e 5c |\\)^^\\(|.+\\)^^\|
|00001670| 5c 28 2e 2b 5c 5c 29 22 | 20 33 20 34 20 62 72 2d |\(.+\\)"| 3 4 br-|
|00001680| 74 72 65 65 2d 64 6f 2d | 63 6d 64 20 62 65 65 70 |tree-do-|cmd beep|
|00001690| 20 6d 65 73 73 61 67 65 | 20 22 27 25 73 27 3a 20 | message| "'%s': |
|000016a0| 69 6e 76 61 6c 69 64 20 | 63 6f 6d 6d 61 6e 64 20 |invalid |command |
|000016b0| 66 72 6f 6d 20 67 72 61 | 70 68 69 63 61 6c 20 62 |from gra|phical b|
|000016c0| 72 6f 77 73 65 72 22 5d | 20 36 5d 29 0a 28 64 65 |rowser"]| 6]).(de|
|000016d0| 66 76 61 72 20 62 72 2d | 63 6d 64 2d 73 74 72 20 |fvar br-|cmd-str |
|000016e0| 6e 69 6c 20 22 5c 0a 43 | 6f 6d 6d 61 6e 64 20 73 |nil "\.C|ommand s|
|000016f0| 74 72 69 6e 67 20 73 65 | 6e 74 20 66 72 6f 6d 20 |tring se|nt from |
|00001700| 67 72 61 70 68 69 63 61 | 6c 20 4f 4f 2d 42 72 6f |graphica|l OO-Bro|
|00001710| 77 73 65 72 20 74 6f 20 | 74 68 65 20 74 65 78 74 |wser to |the text|
|00001720| 75 61 6c 20 4f 4f 2d 42 | 72 6f 77 73 65 72 2e 22 |ual OO-B|rowser."|
|00001730| 29 0a 28 64 65 66 76 61 | 72 20 62 72 2d 73 68 6f |).(defva|r br-sho|
|00001740| 77 2d 66 65 61 74 75 72 | 65 73 20 6e 69 6c 20 22 |w-featur|es nil "|
|00001750| 5c 0a 4e 6f 6e 2d 6e 69 | 6c 20 6d 65 61 6e 73 20 |\.Non-ni|l means |
|00001760| 61 64 64 20 66 65 61 74 | 75 72 65 73 20 61 73 20 |add feat|ures as |
|00001770| 63 68 69 6c 64 20 6e 6f | 64 65 73 20 69 6e 20 65 |child no|des in e|
|00001780| 61 63 68 20 67 72 61 70 | 68 69 63 61 6c 20 64 65 |ach grap|hical de|
|00001790| 73 63 65 6e 64 61 6e 63 | 79 20 76 69 65 77 2e 22 |scendanc|y view."|
|000017a0| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|000017b0| 21 ac 82 c2 11 c0 c3 21 | ac 82 c4 13 c5 c6 21 87 |!......!|......!.|
|000017c0| 22 20 5b 62 6f 75 6e 64 | 70 20 62 72 2d 74 72 65 |" [bound|p br-tre|
|000017d0| 65 2d 6e 75 6d 20 30 20 | 62 72 2d 74 72 65 65 2d |e-num 0 |br-tree-|
|000017e0| 6e 61 6d 65 20 22 54 72 | 65 65 22 20 70 72 6f 76 |name "Tr|ee" prov|
|000017f0| 69 64 65 20 62 72 2d 74 | 72 65 65 5d 20 32 29 0a |ide br-t|ree] 2).|
+--------+-------------------------+-------------------------+--------+--------+